home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_202_App.inc < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.6 KB  |  82 lines
  1. %if lang = MPW%
  2.     { %filename% -- application class }
  3.     { Created %date% %time% by AppMaker }
  4. %endif%
  5.  
  6. const
  7.     kDocFileType    = 'TEXT';     {main File-type for this app}
  8.  
  9. {$S AInit}
  10. {----------}
  11. Procedure T%appname%App.I%appname%App;
  12. Begin
  13.     inherited IApplication (kDocFileType);
  14.     %for each menu gen addResMenu%
  15.  
  16.     %for each dialog gen createModeless%
  17.  
  18. End; {I%appname%App}
  19.  
  20. {$S AOpen}
  21. {----------}
  22. Function  T%appname%App.DoMakeDocument    (itsCmdNumber:    CmdNumber): TDocument; Override;
  23. var
  24.     %appname%Doc:    T%appname%Doc;
  25. Begin
  26.     New (%appname%Doc);
  27.     FailNIL (%appname%Doc);
  28.     %appname%Doc.I%appname%Doc;
  29.     DoMakeDocument := %appname%Doc;
  30. End; {DoMakeDocument}
  31.  
  32. {$S ARes}
  33. {----------}
  34. Procedure T%appname%App.DoSetupMenus; Override;
  35. Begin
  36.     inherited DoSetupMenus;
  37.     
  38.     %for each menu gen enableItems%
  39.  
  40. End; {DoSetupMenus}
  41.  
  42. {$S ASelCommand}
  43. {----------}
  44. Function  T%appname%App.DoMenuCommand    (aCmdNumber:    CmdNumber): TCommand; Override;
  45. var
  46.     menu:        integer;
  47.     item:        integer;
  48. Begin
  49.     DoMenuCommand := gNoChanges;
  50.     if aCmdNumber < 0 then begin
  51.         CmdToMenuItem (aCmdNumber, menu, item);
  52.     end else begin
  53.         case aCmdNumber of
  54.             0:
  55.                     ;
  56.             %for each menu gen handleItems%
  57.  
  58.             otherwise
  59.                     DoMenuCommand := inherited DoMenuCommand (aCmdNumber);
  60.         end; {case}
  61.     end;
  62. End; {DoMenuCommand}
  63.  
  64. %for each menu gen doItems%
  65. {$IFC qInspector}
  66. {$S AFields}
  67. {----------}
  68. Procedure T%appname%App.Fields    (
  69.                 Procedure DoToField    (fieldName:        Str255;
  70.                                      fieldAddr:        Ptr;
  71.                                      fieldType:        integer)
  72.                                 ); Override;
  73. Begin
  74.     DoToField ('T%appname%App', nil, bClass);
  75.     %for each dialog gen DoToField%
  76.  
  77.     inherited Fields (DoToField);
  78. End; {Fields}
  79. {$ENDC}
  80.  
  81. {End U%AppName%.inc.p}
  82.